home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_2 / tile.puz < prev    next >
Text File  |  1995-03-23  |  14KB  |  400 lines
  1. Article 3339 of comp.sys.handhelds:
  2. Path: en.ecn.purdue.edu!noose.ecn.purdue.edu!samsung!olivea!apple!uokmax!d.cs.okstate.edu!drd!mike
  3. From: mike@DRD.Com (Mike Rovak)
  4. Newsgroups: comp.sys.handhelds
  5. Subject: new puzzle, new blinky
  6. Keywords: new, game
  7. Message-ID: <1991Jan10.172803.2262@DRD.Com>
  8. Date: 10 Jan 91 17:28:03 GMT
  9. Sender: Mike Rovak
  10. Reply-To: mike@drd.Com (Mike Rovak)
  11. Followup-To: comp.sys.handhelds
  12. Organization: DRD Corporation, Tulsa, OK
  13. Lines: 383
  14.  
  15. Well, here's my first attempt at a game posting.  First, an HP version of
  16. a new sliding tile puzzle.  Second, a version of the CHIP48 game BLINKY
  17. which uses the same control keys as SYZYGY.
  18.  
  19.  
  20. This is an HP48SX version of a cute little sliding-piece puzzle I saw last
  21. month.
  22.  
  23. Object of the game is to reorder the numbered sliding pieces until they
  24. are in numerical order.  This is done by either sliding pieces left around
  25. the track, sliding pieces right around the track, or spinning the little 
  26. flipper which contains 4 consecutive pieces at a time, thus reversing the 
  27. order of the 4 pieces.
  28.  
  29. Download the game into a directory, go into it, and press PLAY.  Game comes
  30. up with the pieces in numerical order (unless a previous game in progress
  31. was saved).  Note:  Game CLEARs the stack.
  32.  
  33. Menu options:
  34.  
  35.     \<-S         \->S       FLIP       MIX         SAVE         QUIT
  36.  shift left   shift right   flip    jumble the   save game    kill game
  37.                                       pieces    in progress
  38.  
  39. Shift Left
  40. Shift Right
  41.  
  42.     Take no parameter (assume shift only 1 position), or take a single
  43. real number parameter which represents the number of positions to shift. 
  44. Parameter saves the time of repeated updating of the display, which 
  45. consumes more time than it should.  Any ideas how to speed this up?
  46.  
  47. Flip
  48.  
  49.     Rotates the flipper which is represented in the display by the U-shaped
  50. line enclosing 4 pieces.
  51.  
  52. Mix
  53.  
  54.     Gives a pseudo-random mix of the pieces by using the legal moves, thus
  55. ensuring that there is indeed a solution.
  56.  
  57. Save
  58.  
  59.     Saves the current game position in a list variable called SAVEL.  Rename
  60. this variable to make it more permanent.  If this variable is present when
  61. PLAY is executed, the game it represents will resume and the variable will be
  62. purged.
  63.  
  64. Quit
  65.  
  66.     Kills the current game and the junk on the stack the game uses.
  67.  
  68.  
  69. As an aside, the variable PIECE is the same as used for the 24-piece puzzle
  70. which was posted earlier.  I moved it up the directory hierarchy to save
  71. memory since I also have the other puzzle, and include it here for 
  72. completeness.
  73.  
  74.  
  75. Here be the game:
  76.  
  77. <------------------------- CUT HERE ---------------------------->
  78. %%HP: T(3)A(D)F(.);
  79. DIR
  80.   PLAY
  81.     \<< STD DEC 64
  82. STWS ERASE CLEAR
  83.       IFERR 'SAVL'
  84. RCL
  85.       THEN CLEAR 1
  86. 20
  87.         FOR j j
  88.         NEXT
  89.       ELSE OBJ\->
  90. DROP 'SAVL' PURGE
  91.       END 1 20 UD {
  92. # 37d # 5d } {
  93. # 37d # 13d } LINE
  94. { # 37d # 13d } {
  95. # 93d # 13d } LINE
  96. { # 93d # 13d } {
  97. # 93d # 5d } LINE
  98. SH3 3 FREEZE { {
  99. "\<-S" LS } { "S\->" RS
  100. } { "FLIP" FLIP } {
  101. "MIX" MIX } {
  102. "SAVE" SAVE } {
  103. "QUIT" QUIT } }
  104. TMENU
  105.     \>>
  106.   LS
  107.     \<< 'LS2' SH4
  108.     \>>
  109.   RS
  110.     \<< 'RS2' SH4
  111.     \>>
  112.   FLIP
  113.     \<< FL2 FL3
  114.     \>>
  115.   MIX
  116.     \<< 1 100
  117.       START RAND 3
  118. * IP 1 + MX2
  119.       NEXT SH2
  120.     \>>
  121.   SAVE
  122.     \<< 20 \->LIST
  123. 'SAVL' STO QUIT
  124.     \>>
  125.   QUIT
  126.     \<< CLEAR 0 MENU
  127.     \>>
  128.   UD
  129.     \<< \-> s f
  130.       \<< s f
  131.         FOR j 21 j
  132. - PICK j DC
  133.         NEXT
  134.       \>>
  135.     \>>
  136.   DC
  137.     \<< \-> c n
  138.       \<< PICT n DC3
  139. c DC2
  140.       \>>
  141.     \>>
  142.   DC2
  143.     \<< \-> c
  144.       \<< PIECE c GET
  145. REPL
  146.       \>>
  147.     \>>
  148.   DC3
  149.     \<< \-> n
  150.       \<< 'L' n GET
  151.       \>>
  152.     \>>
  153.   FL2
  154.     \<< 1 5
  155.       START LS2
  156.       NEXT 4 ROLLD
  157. SWAP ROT 1 5
  158.       START RS2
  159.       NEXT
  160.     \>>
  161.   FL3
  162.     \<< 2 5 UD 3
  163. FREEZE
  164.     \>>
  165.   LS2
  166.     \<< 20 ROLL
  167.     \>>
  168.   RS2
  169.     \<< 20 ROLLD
  170.     \>>
  171.   SH2
  172.     \<< 1 20 UD 3
  173. FREEZE
  174.     \>>
  175.   SH3
  176.     \<< { # 0d # 0d }
  177. PVIEW
  178.     \>>
  179.   SH4
  180.     \<< \-> p
  181.       \<< DEPTH 20
  182.         IF >
  183.         THEN SH3 1
  184. SWAP
  185.           START p
  186. EVAL
  187.           NEXT SH2
  188.         ELSE p EVAL
  189. SH2
  190.         END
  191.       \>>
  192.     \>>
  193.   MX2
  194.     \<< \-> n
  195.       \<<
  196.         CASE 'n==1'
  197.           THEN LS2
  198.           END 'n==2
  199. '
  200.           THEN RS2
  201.           END FL2
  202.         END
  203.       \>>
  204.     \>>
  205.   L { { # 25d # 0d
  206. } { # 39d # 0d } {
  207. # 53d # 0d } {
  208. # 67d # 0d } {
  209. # 81d # 0d } {
  210. # 95d # 0d } {
  211. # 107d # 8d } {
  212. # 119d # 16d } {
  213. # 119d # 29d } {
  214. # 107d # 37d } {
  215. # 95d # 45d } {
  216. # 81d # 45d } {
  217. # 67d # 45d } {
  218. # 53d # 45d } {
  219. # 39d # 45d } {
  220. # 25d # 45d } {
  221. # 13d # 37d } {
  222. # 1d # 29d } { # 1d
  223. # 16d } { # 13d
  224. # 8d } }
  225.   PPAR {
  226. (-6.5,-3.1)
  227. (6.5,3.2) X 0 (0,0)
  228. FUNCTION Y }
  229.   PIECE {
  230. GROB 11 11 FF70306010401340124012401240174010403060FF70
  231. GROB 11 11 FF70306010401740144017401140174010403060FF70
  232. GROB 11 11 FF70306010401740144017401440174010403060FF70
  233. GROB 11 11 FF70306010401540154017401440144010403060FF70
  234. GROB 11 11 FF70306010401740114017401440174010403060FF70
  235. GROB 11 11 FF70306010401640114017401540174010403060FF70
  236. GROB 11 11 FF70306010401740144012401140114010403060FF70
  237. GROB 11 11 FF70306010401740154017401540174010403060FF70
  238. GROB 11 11 FF70306010401740154017401440174010403060FF70
  239. GROB 11 11 FF7030601040D840945094509450D94010403060FF70
  240. GROB 11 11 FF7030601040DC40984098409840DD5010403060FF70
  241. GROB 11 11 FF7030601040DC5090509C509440DD5010403060FF70
  242. GROB 11 11 FF7030601040DC5090509C509050DD5010403060FF70
  243. GROB 11 11 FF7030601040D45094509C509050D15010403060FF70
  244. GROB 11 11 FF7030601040DC5094409C509050DD5010403060FF70
  245. GROB 11 11 FF7030601040D85094409C509450DD5010403060FF70
  246. GROB 11 11 FF7030601040DC50905098409440D54010403060FF70
  247. GROB 11 11 FF7030601040DC5094509C509450DD5010403060FF70
  248. GROB 11 11 FF7030601040DC5094509C509050DD5010403060FF70
  249. GROB 11 11 FF7030601040D9401550D5505450D94010403060FF70
  250. GROB 11 11 FF7030601040DD401940D9405840DD5010403060FF70
  251. GROB 11 11 FF7030601040DD501150DD505440DD5010403060FF70
  252. GROB 11 11 FF7030601040DD501150DD505050DD5010403060FF70
  253. GROB 11 11 FF7030601040D5501550DD505050D15010403060FF70
  254. }
  255. END
  256. <------------------------- CUT HERE ---------------------------->
  257.  
  258.  
  259. Here's a blinky (CHIP48 string in uuencoded binary) which uses the same
  260. control keys as SYZYGY, namely, 1=left, 2=right, 9=up, 6=down.  Much easier
  261. to control the game this way.  Be sure to download in BINARY with translation
  262. code 0 (no translation) after uudecoding.  Following it is the ASC\->
  263. string version for those who do not have uudecode.  Download the string in
  264. ASCII, run ASC\-> on it, and feed it to CHIP48.
  265.  
  266. <------------------------- CUT HERE ---------------------------->
  267. begin 664 blinky
  268. M2%!(4#0X+4$L*A $ 0#@$AI#:'(N($5G96)E<F<@,3$O,3$M)SDP@ .!$Z? 
  269. M\55F &< )GIN0(?B;B>'X6@::0QJ.&L ; )M&@#@)IPF9J?4VK3<U".</@ 2
  270. M8"3")3@V]Q)(CF G<FYD)W(2(O '0  2Y(" @%: 5H!6@:"!5H%6@590$!*D
  271. M@)" 5H!6@%:!L(%6@5:!5E 0$J2GU-JT:CAK -JT;O.'XFX$A^%N,B=R@(" 
  272. M5H!6@%:!P(%6@5:!5E 0$DZ D(!6@%: 5H'0@5:!5H%64! 23J?4W-1L FT:
  273. MW-1NSX?B;B"'X6X9)W(23F! )Z!N0(?C@'" XC  $BB.8"=R)X( X&819PJG
  274. MPB;>9A%G$*? )MYD &4(9@!G#ZH U&FJ"M5I8 ,GH#X $Y*J -1IJ@K5:70"
  275. M=0(T,!,4J@#4::H*U6E@ R>@/@ 3DJH U&FJ"M5I=@(V%A,TJ@#4::H*U6E@
  276. M R>@/@ 3DJH U&FJ"M5I=/YU_C0 $U*J -1IJ@K5:6 #)Z ^ !.2J@#4::H*
  277. MU6EV_C8 $W(3%*H*U6FJ%-5I$AJ#<&X#@^*$@(60;@;NH1/^;@/NH106;@CN
  278. MH10N;@?NH11&0P-U D, =?Y# G0"0P%T_H! @5 FPH( ;@B XC  %%YN!X @
  279. M@N)"!11F0@84?D('%+@F9F[\A^*',8A B5 69H! @5!Q B;"@@!N"(#B,  3
  280. MOF,#=0(3VH! @5!Q_B;"@@!N"(#B,  3OF, =?X3VH! @5!P B;"@@!N"(#B
  281. M,  3OF,"= (3VH! @5!P_B;"@@!N"(#B,  3OF,!=/X3VB9FV)2.\ #N;O" 
  282. MXH Q\%6GV-14=@%A!? '0 #Q&!/P;O" XH Q\%6GW-14=@2 H(&P)L)N\(#B
  283. M,  4GFX,A^. P('0)L)N\(#B,  4L&XPA^-@__ 8\!43\$,!9#I# F0 $_""
  284. M<&X,@N* H(&P)L*GU&[P@.(P !3NVK1"#'L"0@![_D((>@)"!'K^VK0 [L'P
  285. M@!(P !3^;@R'XX+C%-C:M(!>3P 5#&($>OX5+H!>3P 5&&(,>P(5+H!>3P 5
  286. M)&((>@(5+H!>3P 4]F( >_[:M&[SA^*'(0#N@G"#<&XP@N* P('0)L*GU&[P
  287. M@.(P !5FW-1",'T"0@!]_D(@? )"$'S^W-0 [FZ \0<Q !8:@0"#7D\ %92#
  288. MD(/53P 5S#, %;*'XX. @\5/ !8 ,P 5YH?C%AJ#@(/%3P 6 #, %>:'XX.0
  289. M@]5/ !7,,P 5LH?C%AIC0($R00 6&MS4?0+<U(?C;L^'XF(PAR$ [F,0@3)!
  290. M !8:W-1]_MS4A^-NSX?B8@"'(0#N8R"!,D$ %AK<U'P"W-2'XV[/A^)B((<A
  291. M .YC@($R00 6&MS4?/[<U(?C;L^'XF(0AR$ [L'P@!(P !8LA^-N,(?C@N,5
  292. M4-S4@%Y/ !8Z8I!\_A9<@%Y/ !9&8C!] A9<@%Y/ !928J!\ A9<@%Y/ !8B
  293. M8@!]_MS4;D^'XH<A .Z <&X#@.* 7H!>I\3P'MB4CO  [FX J #^'OX>_A[^
  294. M'O-EJA[^'OX>_A[^'O-5?@$^@!9\ .Z"(X,S;@^ (($P)L: XH!>I^#P'M(R
  295. M<@(R0!:B@B-S D,@ .X6HG "<0* 5H%6@5Z!7H%>@5ZJ'O$>\1[P'O!E .[Q
  296. M96X!A$." (,091"#54\ @N5/ !<$92>"54\ %P2 (($PA.06Z/0IUG5V!H1#
  297. M@@"#$&7H@U5/ (+E3P 7+&4#@E5/ !<L@""!,(3D%Q#T*=9U=@:$0X( @Q!E
  298. M9(-53P""Y4\ %TR (($PA.07./0IUG5V!H1#@@"#$&4*@U5/ !=F@3"$Y!=8
  299. M]"G6=78&\2G6=0#NI\#Q98'D/P!P :? \54 [J? \V6. (XE3P  [CX %YJ.
  300. M$(XU3P  [J?"\54 [H[C8@]C_V$0XJ$7O($T,0 7J&$0@#0P !>H .YN 0#N
  301. M      !0<"  8#!@ #!@,  @<%  ('!P   @                    @   
  302. M    P    ("   # @(" P "   P(" @(" @(" @(" @(" T," @(" @(" @(
  303. M" @(" @-"F4%!04%Y04%Y04%!07%"@IE!04%!>4%!>4%!04%Q0H*!0P(" \%
  304. M# T%" @(#04.#P4," @/!0P-!0@(" T%"@H%"F4&!94*"C4%!<4*-04%E0IE
  305. M!065"@HU!0;%"@4*"@4/!0@(" @(# @/!0@(" @(#P4(" P(" @(#P4/!0H*
  306. M=06U!04%!<4*906U!>4%!>4%M07%"F4%!04%M075"@H%# @(" @-!0\%# @/
  307. M!0@/!0@(#04/!0P(" @(#04*#P4/904%Y0HUY94*906P!06U!<4*->65"F4%
  308. M!<4/!0\'= 75" \%#@\%" \%# @(" @-!0@/!0@/!0@/=074!PH%"C4%!?4%
  309. M!;4%!=4(" T," ]U!06U!07U!065"@4*"@4(" @-!0P(" @--07%"@IE!94,
  310. M" @(#04," @/!0H*=04%Q0H%" @(" @(#P4(#P4(" @(" @/!0IE!075"@H%
  311. M# T&"C4%!04%Y04%]04%]04%Y04%!065"@8,#04*"@4(#P4(" @(" \%# T%
  312. M" \%# T%" @(" @/!0@/!0H*-04%M04%!04%!94*"C4%!94*"C4%!04%!06U
  313. M!065"@@(" @(" @(" @(" \(" @(" \(" @(" @(" @(" @//$*9F4(\ 1 /
  314. 5 'B$,C*$>  0X !X_/[^A'@ $.  
  315.  
  316. end
  317. <------------------------- CUT HERE ---------------------------->
  318.  
  319. Here be the ASC\-> string:
  320.  
  321. <------------------------- CUT HERE ---------------------------->
  322. %%HP: T(3)A(D)F(.);
  323. "C2A2014010000E21A1348627E20254765626562776021313F21313D272930308
  324. 3018317A0C1F556600760062A7E604782EE672781E86A196C0A683B600C620D6
  325. A1000E62C962667A4DAD4BCD4D32C9E3002106422C5283637F2184E8067227E6
  326. 46722721220F700400214E0808086508650865180A1865186518650501214A08
  327. 09086508650865180B1865186518650501214A7A4DAD4BA683B600AD4BE63F78
  328. 2EE640781EE62372270808086508650865180C186518651865050121E4080908
  329. 6508650865180D186518651865050121E47A4DCD4DC620D6A1CD4DE6FC782EE6
  330. 02781EE691722721E40604720AE604783E0807082E03002182E8067227722800
  331. 0E661176A07A2C62ED661176017A0C62ED46005680660076F0AA004D96AAA05D
  332. 960630720AE3003129AA004D96AAA05D964720572043033141AA004D96AAA05D
  333. 960630720AE3003129AA004D96AAA05D96672063613143AA004D96AAA05D9606
  334. 30720AE3003129AA004D96AAA05D9647EF57EF43003125AA004D96AAA05D9606
  335. 30720AE3003129AA004D96AAA05D9667EF630031273141AAA05D96AA415D9621
  336. A13807E630382E48085809E660EE1A31EFE630EE1A4161E680EE1A41E2E670EE
  337. 1A416434305720340057EF34204720341047EF08041805622C2800E680082E03
  338. 0041E5E6700802282E24504166246041E72470418B6266E6CF782E7813880498
  339. 056166080418051720622C2800E680082E030031EB3630572031AD0804180517
  340. EF622C2800E680082E030031EB360057EF31AD080418050720622C2800E68008
  341. 2E030031EB3620472031AD0804180507EF622C2800E680082E030031EB361047
  342. EF31AD62668D49E80F00EEE60F082E08130F557A8D4D45671016500F7004001F
  343. 81310FE60F082E08130F557ACD4D456740080A180B622CE60F082E030041E9E6
  344. C0783E080C180D622CE60F082E0300410BE603783E06FF0F810F51310F341046
  345. A334204600310F2807E6C0282E080A180B622C7A4DE60F082E030041EEAD4B24
  346. C0B7202400B7EF2480A7202440A7EFAD4B00EE1C0F0821030041EFE6C0783E28
  347. 3E418DAD4B08E5F40051C02640A7EF51E208E5F400518126C0B72051E208E5F4
  348. 0051422680A72051E208E5F400416F2600B7EFAD4BE63F782E781200EE280738
  349. 07E603282E080C180D622C7A4DE60F082E03005166CD4D2403D7202400D7EF24
  350. 02C7202401C7EFCD4D00EEE6081F70130061A1180038E5F40051493809385DF4
  351. 0051CC3300512B783E3808385CF40061003300516E783E61A13808385CF40061
  352. 003300516E783E3809385DF40051CC3300512B783E61A136041823140061A1CD
  353. 4DD720CD4D783EE6FC782E2603781200EE36011823140061A1CD4DD7EFCD4D78
  354. 3EE6FC782E2600781200EE36021823140061A1CD4DC720CD4D783EE6FC782E26
  355. 02781200EE36081823140061A1CD4DC7EFCD4D783EE6FC782E2601781200EE1C
  356. 0F0821030061C2783EE603783E283E5105CD4D08E5F40061A32609C7EF61C508
  357. E5F40061642603D72061C508E5F4006125260AC72061C508E5F40061222600D7
  358. EFCD4DE6F4782E781200EE0807E630082E08E508E57A4C0FE18D49E80F00EEE6
  359. 008A00EFE1EFE1EFE1EFE13F56AAE1EFE1EFE1EFE1EFE13F55E710E30861C700
  360. EE28323833E6F008021803626C082E08E57A0E0FE12D2327202304612A283237
  361. 20340200EE612A072017200865186518E518E518E518E5AAE11FE11FE10FE10F
  362. 5600EE1F56E61048342800380156013855F400285EF400714056722855F40071
  363. 4008021803484E618E4F926D576760483428003801568E3855F400285EF40071
  364. C256302855F40071C208021803484E71014F926D576760483428003801564638
  365. 55F400285EF40071C408021803484E71834F926D57676048342800380156A038
  366. 55F40071661803484E71854F926D5767601F926D5700EE7A0C1F56184EF30007
  367. 107A0C1F5500EE7A0C3F56E800E852F40000EEE30071A9E801E853F40000EE7A
  368. 2C1F5500EEE83E26F036FF16012E1A71CB18431300718A160108430300718A00
  369. EEE61000EE000000000005070200060306000306030002070500020707000002
  370. 0000000000000000000000000000000800000000000C000000080800000C0808
  371. 080C000800C08080808080808080808080808080D0C080808080808080808080
  372. 80808080D0A056505050505E50505E505050505CA0A056505050505E50505E50
  373. 5050505CA0A050C08080F050C0D050808080D050E0F050C08080F050C0D05080
  374. 8080D050A0A050A056605059A0A05350505CA053505059A056505059A0A05350
  375. 605CA050A0A050F0508080808080C080F0508080808080F0508080C080808080
  376. F050F050A0A057505B505050505CA056505B505E50505E505B505CA056505050
  377. 505B505DA0A050C080808080D050F050C080F05080F0508080D050F050C08080
  378. 8080D050A0F050F05650505EA0535E59A056500B50505B505CA0535E59A05650
  379. 505CF050F07047505D80F050E0F05080F050C080808080D05080F05080F05080
  380. F057504D70A050A05350505F50505B50505D8080D0C080F05750505B50505F50
  381. 5059A050A0A050808080D050C0808080D053505CA0A0565059C0808080D050C0
  382. 8080F050A0A05750505CA050808080808080F05080F050808080808080F050A0
  383. 5650505DA0A050C0D060A053505050505E50505F50505F50505E5050505059A0
  384. 60C0D050A0A05080F0508080808080F050C0D05080F050C0D0508080808080F0
  385. 5080F050A0A05350505B50505050505059A0A053505059A0A053505050505050
  386. 5B505059A0808080808080808080808080F08080808080F08080808080808080
  387. 80808080F0C324999924C31001F00087482323488700010E0087CFEFEF488700
  388. 010E00C5C0"
  389. <------------------------- CUT HERE ---------------------------->
  390.  
  391. ------------------------------------------------------------------------
  392. Disclaimer: My opinions do not necessarily reflect those of my employer.
  393. ========================================================================
  394. ------------------------------------------------------------------------
  395.      mike@DRD.Com  
  396.      uunet!apctrc!drd!mike
  397. ========================================================================
  398.  
  399.  
  400.